home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / user / Graph.p < prev    next >
Encoding:
Text File  |  2000-05-17  |  8.0 KB  |  167 lines
  1. pTempVar <- <primitive 110 23 >
  2. <primitive 112 pTempVar 1  " close " \
  3.   #( #[ 16r11 16r80 16r00 16rF2 16r10 16r80 16r00 16rF2 16r5D 16rF3 16rF5 \
  4.        ] \
  5.     #( #close  )) >
  6.  
  7. <primitive 112 pTempVar 2  " domain " \
  8.   #( #[ 16r1D 16rA6 16r0A 16r10 16r30 16r0B 16r11 16r1D 16r0A 16r1E 16r0A \
  9.         16r10 16r0B 16r11 16rF3 16rF5] \
  10.     #( '<->'  )) >
  11.  
  12. <primitive 112 pTempVar 3  " range " \
  13.   #( #[ 16r1C 16rA6 16r0A 16r10 16r30 16r0B 16r11 16r1C 16r0A 16r1E 16r0A \
  14.         16r10 16r0B 16r11 16rF3 16rF5] \
  15.     #( '<->'  )) >
  16.  
  17. <primitive 112 pTempVar 4  " yScale " \
  18.   #( #[ 16r5A 16r19 16rC2 16rF3 16rF5] \
  19.     #(  )) >
  20.  
  21. <primitive 112 pTempVar 5  " xScale " \
  22.   #( #[ 16r18 16rF3 16rF5] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 6  " tellDomain " \
  26.   #( #[ 16r30 16r1D 16rA6 16r0A 16r10 16r0B 16r11 16r31 16r0B 16r11 16r1D \
  27.         16r0A 16r1E 16r0A 16r10 16r0B 16r11 16rA8 16rF2 16rF5] \
  28.     #( 'Domain is ' '<->'  )) >
  29.  
  30. <primitive 112 pTempVar 7  " tellRange " \
  31.   #( #[ 16r30 16r1C 16rA6 16r0A 16r10 16r0B 16r11 16r31 16r0B 16r11 16r1C \
  32.         16r0A 16r1E 16r0A 16r10 16r0B 16r11 16rA8 16rF2 16rF5] \
  33.     #( 'Range  is ' '<->'  )) >
  34.  
  35. <primitive 112 pTempVar 8  " tellScales " \
  36.   #( #[ 16r30 16r18 16r0B 16r11 16r31 16r0B 16r11 16r51 16r81 16r02 16r19 \
  37.         16rC2 16rA8 16rF2 16rF5] \
  38.     #( 'Scales are:  xscale = ' ', yscale = ' #,-  )) >
  39.  
  40. <primitive 112 pTempVar 9  " drawLabel:at: " \
  41.   #( #[ 16r20 16r21 16r22 16r92 16r00 16rF2 16r11 16r80 16r01 16rF2 16rF5 \
  42.        ] \
  43.     #( #drawText:at: #refreshWindowFrame  )) >
  44.  
  45. <primitive 112 pTempVar 10  " drawYAxis:numTicks:color: " \
  46.   #( #[ 16r1C 16r21 16r0B 16r1F 16rF7 16r37 16r20 16r23 16r81 16r00 16rF2 \
  47.         16r20 16r21 16r1D 16rA6 16r21 16r1D 16r0A 16r1E 16r84 16r01 \
  48.         16rF2 16r22 16r50 16rCC 16rF7 16r20 16r1D 16r0A 16r1E 16r1D \
  49.         16rA6 16rC1 16r22 16rBE 16r74 16r51 16r22 16r51 16rD4 16rE1 \
  50.         16r06 16r0D 16r26 16r24 16rC2 16r1D 16rA6 16rC0 16r75 16r20 \
  51.         16r21 16r25 16r82 16r02 16rF3 16rB3 16rF2 16r5D 16rF8 16r03 \
  52.         16rF2 16r33 16rA8 16rF2 16r11 16r80 16r04 16rF2 16rF5] \
  53.     #( #setPen: #drawLine:y1:x2:y2: #drawYTick:y: 'Y-Axis outside range!' #refreshWindowFrame  )) >
  54.  
  55. <primitive 112 pTempVar 11  " drawXAxis:numTicks:color: " \
  56.   #( #[ 16r1D 16r21 16r0B 16r1F 16rF7 16r37 16r20 16r23 16r81 16r00 16rF2 \
  57.         16r20 16r1C 16rA6 16r21 16r1C 16r0A 16r1E 16r21 16r84 16r01 \
  58.         16rF2 16r22 16r50 16rCC 16rF7 16r20 16r1C 16r0A 16r1E 16r1C \
  59.         16rA6 16rC1 16r22 16rBE 16r74 16r51 16r22 16r51 16rD4 16rE1 \
  60.         16r06 16r0D 16r26 16r24 16rC2 16r1C 16rA6 16rC0 16r75 16r20 \
  61.         16r25 16r21 16r82 16r02 16rF3 16rB3 16rF2 16r5D 16rF8 16r03 \
  62.         16rF2 16r33 16rA8 16rF2 16r11 16r80 16r04 16rF2 16rF5] \
  63.     #( #setPen: #drawLine:y1:x2:y2: #drawXTick:y: 'X-Axis outside domain!' #refreshWindowFrame  )) >
  64.  
  65. <primitive 112 pTempVar 12  " drawGrid:y:color: " \
  66.   #( #[ 16r20 16r23 16r81 16r00 16rF2 16r1C 16r0A 16r1E 16r1C 16rA6 16rC1 \
  67.         16r21 16rBE 16r74 16r51 16r21 16r51 16rD4 16rE1 16r06 16r12 \
  68.         16r26 16r24 16rC2 16r1C 16rA6 16rC0 16r75 16r20 16r25 16r1D \
  69.         16r0A 16r1E 16r25 16r1D 16rA6 16r84 16r01 16rF3 16rB3 16rF2 \
  70.         16r1D 16r0A 16r1E 16r1D 16rA6 16rC1 16r22 16rBE 16r74 16r51 \
  71.         16r22 16r51 16rD4 16rE1 16r06 16r12 16r26 16r24 16rC2 16r1D \
  72.         16rA6 16rC0 16r75 16r20 16r1C 16rA6 16r25 16r1C 16r0A 16r1E \
  73.         16r25 16r84 16r01 16rF3 16rB3 16rF2 16r11 16r80 16r02 16rF2 \
  74.         16rF5] \
  75.     #( #setPen: #drawLine:y1:x2:y2: #refreshWindowFrame  )) >
  76.  
  77. <primitive 112 pTempVar 13  " drawYTick:y: " \
  78.   #( #[ 16r05 16r35 16rA0 16r73 16r05 16r35 16rA0 16r74 16r23 16r16 16r53 \
  79.         16rC0 16r18 16r21 16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 16r0A \
  80.         16r28 16r0B 16r32 16rF2 16r23 16r17 16r19 16r22 16r1D 16rA6 \
  81.         16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r33 16rF2 16r24 16r16 \
  82.         16r53 16rC1 16r18 16r21 16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 \
  83.         16r0A 16r28 16r0B 16r32 16rF2 16r24 16r17 16r19 16r22 16r1D \
  84.         16rA6 16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r33 16rF2 16r20 \
  85.         16r23 16r24 16r92 16r00 16rF2 16r11 16r80 16r01 16rF2 16rF5 \
  86.        ] \
  87.     #( #drawLineFrom:to: #refreshWindowFrame  )) >
  88.  
  89. <primitive 112 pTempVar 14  " drawXTick:y: " \
  90.   #( #[ 16r05 16r35 16rA0 16r73 16r05 16r35 16rA0 16r74 16r23 16r16 16r18 \
  91.         16r21 16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 16r0A 16r28 16r0B \
  92.         16r32 16rF2 16r23 16r17 16r53 16rC0 16r19 16r22 16r1D 16rA6 \
  93.         16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r33 16rF2 16r24 16r16 \
  94.         16r18 16r21 16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 16r0A 16r28 \
  95.         16r0B 16r32 16rF2 16r24 16r17 16r53 16rC1 16r19 16r22 16r1D \
  96.         16rA6 16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r33 16rF2 16r20 \
  97.         16r23 16r24 16r92 16r00 16rF2 16r11 16r80 16r01 16rF2 16rF5 \
  98.        ] \
  99.     #( #drawLineFrom:to: #refreshWindowFrame  )) >
  100.  
  101. <primitive 112 pTempVar 15  " drawLine:y1:x2:y2: " \
  102.   #( #[ 16r05 16r35 16rA0 16r75 16r05 16r35 16rA0 16r76 16r25 16r16 16r18 \
  103.         16r21 16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 16r0A 16r28 16r0B \
  104.         16r32 16rF2 16r25 16r17 16r19 16r22 16r1D 16rA6 16rC1 16rC2 \
  105.         16rC0 16r0A 16r28 16r0B 16r33 16rF2 16r26 16r16 16r18 16r23 \
  106.         16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r32 \
  107.         16rF2 16r26 16r17 16r19 16r24 16r1D 16rA6 16rC1 16rC2 16rC0 \
  108.         16r0A 16r28 16r0B 16r33 16rF2 16r20 16r25 16r26 16r92 16r00 \
  109.         16rF2 16r11 16r80 16r01 16rF2 16rF5] \
  110.     #( #drawLineFrom:to: #refreshWindowFrame  )) >
  111.  
  112. <primitive 112 pTempVar 16  " plotPoint:y: " \
  113.   #( #[ 16r05 16r35 16rA0 16r73 16r23 16r16 16r18 16r21 16r1C 16r0A 16r1E \
  114.         16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r32 16rF2 16r23 16r17 \
  115.         16r19 16r22 16r1D 16rA6 16rC1 16rC2 16rC0 16r0A 16r28 16r0B \
  116.         16r33 16rF2 16r20 16r23 16r91 16r00 16rF2 16rF5] \
  117.     #( #drawPixelAt:  )) >
  118.  
  119. <primitive 112 pTempVar 17  " setYAxisFrom:to:by: " \
  120.   #( #[ 16r1D 16r21 16r22 16r23 16r83 16r00 16rF2 16r23 16r6B 16r17 16r15 \
  121.         16rC1 16r21 16r22 16rC1 16rBE 16r69 16rF5] \
  122.     #( #from:to:by:  )) >
  123.  
  124. <primitive 112 pTempVar 18  " setXAxisFrom:to:by: " \
  125.   #( #[ 16r1C 16r21 16r22 16r23 16r83 16r00 16rF2 16r23 16r6A 16r16 16r14 \
  126.         16rC1 16r22 16r21 16rC1 16rBE 16r68 16rF5] \
  127.     #( #from:to:by:  )) >
  128.  
  129. <primitive 112 pTempVar 19  " setPen: " \
  130.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16rF5] \
  131.     #( #setAPen:  )) >
  132.  
  133. <primitive 112 pTempVar 20  " refreshGraphPaper " \
  134.   #( #[ 16r11 16r80 16r00 16rF2 16rF5] \
  135.     #( #refreshWindowFrame  )) >
  136.  
  137. <primitive 112 pTempVar 21  " open:from:to: " \
  138.   #( #[ 16r40 16r12 16rB0 16r60 16r41 16r13 16rB0 16r61 16r10 16r21 16r81 \
  139.         16r02 16rF2 16r20 16r22 16r23 16r82 16r03 16rF2 16r10 16r54 \
  140.         16r81 16r04 16rF2 16r10 16r80 16r05 16rF2 16r11 16r36 16r81 \
  141.         16r07 16rF2 16r11 16r12 16r81 16r08 16rF2 16rF5] \
  142.     #( #Screen #Window #setScreenModeID: #setSizeFrom:to: #setDepth: #open 16r11800 #setFlags: #openOnScreen:  )) >
  143.  
  144. <primitive 112 pTempVar 22  " setSizeFrom:to: " \
  145.   #( #[ 16r10 16r21 16r81 16r00 16rF2 16r10 16r22 16r81 16r01 16rF2 16r11 \
  146.         16r21 16r81 16r02 16rF2 16r11 16r22 16r81 16r03 16rF2 16r21 \
  147.         16r0A 16r30 16r64 16r21 16r0A 16r31 16r65 16r22 16r0A 16r30 \
  148.         16r66 16r22 16r0A 16r31 16r67 16rF5] \
  149.     #( #setOrigin: #setScreenSize: #setWindowOrigin: #setWindowSize:  )) >
  150.  
  151. <primitive 112 pTempVar 23  " initialize:winTitle: " \
  152.   #( #[ 16r21 16r62 16r22 16r63 16r20 16r13 16r91 16r00 16rF2 16r05 16r2E \
  153.         16rA0 16r6C 16r05 16r2E 16rA0 16r6D 16r31 16r6A 16r32 16r6B \
  154.         16r33 16r68 16r34 16r69 16rF5] \
  155.     #( #new: 0.0 0.0 1.0 1.0  )) >
  156.  
  157. <primitive 98 #Graph \
  158.   <primitive 97 #Graph #Painter #graph.st \
  159.    #(  #scr #win #ts #tw #x #y #w #h #xscale #yscale #xinc #yinc #range #domain ) \
  160.    #( #close #domain #range #yScale #xScale #tellDomain #tellRange #tellScales  \
  161.        #drawLabel:at: #drawYAxis:numTicks:color: #drawXAxis:numTicks:color: #drawGrid:y:color:  \
  162.        #drawYTick:y: #drawXTick:y: #drawLine:y1:x2:y2: #plotPoint:y: #setYAxisFrom:to:by:  \
  163.        #setXAxisFrom:to:by: #setPen: #refreshGraphPaper #open:from:to: #setSizeFrom:to:  \
  164.        #initialize:winTitle:  ) \
  165.   pTempVar 7 10 >>
  166.  
  167.